home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DDJMAG / DDJ9203.ZIP / OOPASM.ZIP / VMENU3.ASM < prev    next >
Assembly Source File  |  1990-07-22  |  1KB  |  72 lines
  1.     .MODEL    SMALL
  2.  
  3.     INCLUDE    equates.inc
  4.     INCLUDE    instance.inc
  5.     INCLUDE    messages.inc
  6.     INCLUDE    objects.inc
  7.  
  8.     UR    EQU    1            ;Upper row
  9.     LC    EQU    26            ;Left column
  10.     LR    EQU    5            ;Lower row
  11.     RC    EQU    36            ;Right column
  12.     MR    EQU    UR-1            ;Mouse row
  13.  
  14. IF1
  15.     INCLUDE    macros.mac
  16.     INCLUDE    objects.mac
  17. ENDIF
  18.  
  19.     EXTRN    Hardware:WORD
  20.     EXTRN    MenuBar:WORD
  21.     EXTRN    Self:WORD
  22.     EXTRN    System:WORD
  23.     EXTRN    VertMenu:WORD
  24.  
  25.     .CODE
  26.  
  27.     .DATA
  28.  
  29. defMenu    VertMenu3,<\
  30.     " Setup   ",\
  31.     " Refresh ",\
  32.     " Restart ">
  33.  
  34. defMenuTbl    VertMenu3,\
  35.     <Self,Clear>,\
  36.     <Self,Clear>,\
  37.     <Self,Clear>
  38.  
  39. defDispTbl    VertMenu3,\
  40.     <0,0,3,0,0,0,0,System,Reset>,\
  41.     <0,72,3,0,0,0,0,Self,Prev>,\
  42.     <0,80,3,0,0,0,0,Self,Next>,\
  43.     <13,28,0,MR,LC,LR,LC+10,Self,Select>,\
  44.     <0,Nil,1,MR,LC,LR,LC+10,Self,Drag>,\
  45.     <0,68,3,0,0,0,0,Self,Clear,System,Refresh,System,Read>,\
  46.     <0,75,1,MR,LC-13,MR,LC-1,Self,Clear,MenuBar,SelectPrev>,\
  47.     <0,77,3,0,0,0,0,Self,Clear,MenuBar,SelectNext>,\
  48.     <27,1,0,0,0,24,79,Self,Clear>,\
  49.     <0,Nil,1,0,0,24,79,Self,DeHilite>,\
  50.     <Nil,Nil,Nil,0,0,24,79,Hardware,Refresh>
  51.  
  52.  
  53. defObj    VertMenu3,\
  54.     <VertMenu>,\
  55.     <Row1,1,1,\
  56.     Col1,1,26,\
  57.     Row2,1,5,\
  58.     Col2,1,36,\
  59.     Color,1,17h,\
  60.     Unused,1,Nil,\
  61.     TxtPtr,2,Nil,\
  62.     InxPtr,2,0,\
  63.     MasterObj,2,Nil,\
  64.     DispTbl,2,VertMenu3DispTbl,\
  65.     MenuPtr,2,VertMenu3Menu,\
  66.     MenuTbl,2,VertMenu3MenuTbl>,\
  67.     <Refresh,Read,Next,Prev,Select,Clear,Hilite,DeHilite,Drag>
  68.  
  69.  
  70.  
  71.     END
  72.